Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00303_Status Display Class.ls

Text File | 1997-07-10 | 950 b | 43 lines

property statusMessage, turnedOn, ancestor

on new me, parameterList
  set statusMessage to getaProp(parameterList, #statusMessage)
  set turnedOn to 0
  if not stringp(statusMessage) then
    set statusMessage to " "
  end if
  return me
end

on TurnOn me
  if not turnedOn then
    set titleObj to GetGlobal(#gTitleObject)
    set menuObj to the currMenu of titleObj
    set statusMember to the statusMember of menuObj
    if not voidp(statusMember) then
      if the number of member statusMember > 0 then
        put "message:" && statusMessage && "member:" && statusMember
        put statusMessage into field statusMember
      else
        put "Bad statusMember!"
      end if
    else
      put "No statusMember!"
    end if
    set turnedOn to 1
  end if
end

on TurnOff me
  set turnedOn to 0
end

on dispose me
  set turnedOn to 0
  set statusMessage to 0
  if objectp(ancestor) then
    dispose(ancestor)
  end if
  set ancestor to 0
end